home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr36
/
mapl0301.zip
/
TESTUP.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-04-13
|
4KB
|
155 lines
rem Summary of parameters that RBBS will pass to the archive test file:
rem %1 - The Complete File/pathname of the file to be tested - stock in RBBS
rem %2 - drive/subdir name of uploaded file eg C:\Upload (no trailing "\")
rem %3 - First name of Filename Eg TEST (no ".")
Rem %4 - Extension of Filename Eg ARJ (no ".")
rem %5 - Node Id of the call
rem %6 - The file to which you write out a failure string - stock in RBBS
rem %7 - The communications port in use eg COM0 (no ":"
rem %8 - users first name
@Echo off
rem turn on Gateway2 if you are using it....
Ctty Gate%5
rem get rid of previouse Convertflag
rem this is needed to let RBBS know you did a Convert and not just a test
IF Exist C:\CNVT2ZIP.%5 DEL c:\CNVT2ZIP.%5
Rem Add an EXE and COM Label if you wish to convert EXE and COM Files also
Rem Same goes for DOC files or whatever extension you wish to convert
IF %4 == ZIP goto ZIP
IF %4 == ARJ goto ARJ
If %4 == ARC Goto ARC
If %4 == PAK GOTO PAK
IF %4 == LZH Goto LZH
if %4 == ZOO GOTO ZOO
IF %4 == TXT GOTO TXT
IF %4 == BAS GOTO BAS
GOTO EXIT
:ZIP
Pkunzip -o %1 File_ID.DIZ c:\RBBS
Pkunzip -o %1 DESC.SDI c:\RBBS
seterror 0
PTEST %1 C:\RBBS\Ptest.cfg
if errorlevel 1 echo Bad Upload > %6
GOTO EXIT
:ARJ
rem Remove the CALLZ line if you want to test ARJ files with ZipLab
rem PTEST %1 C:\RBBS\Ptest.cfg
rem if errorlevel 1 echo Bad Upload > %6
rem create Flag file for RBBS to read when Converting to ZIP
echo ... >c:\Cnvt2Zip.%5
CALLZ %3 %5 ARJ C:\WORK\ ARJ E %2\ \
GOTO EXIT
:ARC
echo ... >c:\Cnvt2Zip.%5
CALLZ %3 %5 ARC C:\WORK\ PAK E %2\
GOTO EXIT
:PAK
echo ... >c:\Cnvt2Zip.%5
CALLZ %3 %5 PAK C:\WORK\ PAK E %2\
GOTO EXIT
:ZOO
echo ... >c:\Cnvt2Zip.%5
CALLZ %3 %5 ZOO C:\WORK\ LOOZ X %2\ \
GOTO EXIT
:LZH
echo ... >c:\Cnvt2Zip.%5
CALLZ %3 %5 LZH C:\WORK\ LHA E %2\ \
GOTO EXIT
:TXT
echo ... >c:\Cnvt2Zip.%5
md C:\WORK\%5
copy %1 C:\WORK\%5
DEL %1
pkzip -a -ex %2\%3 C:\WORK\%5\*.*
IF ERRORLEVEL 1 GOTO badupload
proecho %node% ~ Now lets see how old the files in %3.ZIP are.......~~
copy %2\%3.ZIP C:\WORK\%5
ZIPDS C:\WORK\%5\*.zip
testage C:\WORK\%5 1989 c:\RBBS\hold
if exist c:\RBBS\hold\%3.zip goto baddates
if not exist c:\RBBS\hold\%1.zip goto thanks
:baddates
proecho %node% At least one of the programs you uploaded is~
proecho %node% more than 2 years old. I will move any old~
proecho %node% programs offline for evaluation by the sysop.~
proecho %node% ~Please DO NOT upload items over 2 years old.~~
copy %2\%3.zip c:\RBBS\hold
del %2\%3.ZIP
goto exit
:badupload
proecho %node% Looks like one or more uploads are no good...~
proecho %node% I will move all file(s) you just uploaded~
proecho %node% offline for manual evaluation by the sysop.~
copy %2\%3.zip c:\RBBS\hold
del %2\%3.zip
goto exit
:thanks
proecho %node% ~Upload file dates are fine. ~~
GOTO EXIT
:BAS
echo ... >c:\Cnvt2Zip.%5
md C:\WORK\%5
echo off
copy %1 C:\WORK\%5
DEL %1
pkzip -a -ex %2\%3 C:\WORK\%5\*.*
IF ERRORLEVEL 1 GOTO badupload
:GOOD
proecho %node% ~Now lets see how old the files in %3.ZIP are.......~~
copy %2\%3.ZIP C:\WORK\%5
zipds C:\WORK\%5\*.zip
testage C:\WORK\%5 1989 c:\RBBS\hold
if exist c:\RBBS\hold\%3.zip goto baddates
if not exist c:\RBBS\hold\%3.zip goto thanks
:baddates
proecho %node% At least one of the programs you uploaded is~
proecho %node% more than 2 years old. I will move any old~
proecho %node% programs offline for evaluation by the sysop.~
proecho %node% ~Please DO NOT upload items over 2 years old.~~
copy %2\%3.zip c:\RBBS\hold
del %2\%3.ZIP
goto exit
:badupload
proecho %node% Looks like one or more uploads are no good...~
proecho %node% I will move all file(s) you just uploaded~
proecho %node% offline for manual evaluation by the sysop.~
copy %2\%3.zip c:\RBBS\hold
del %2\%3.zip
goto exit
:thanks
proecho %node% ~Upload file dates are fine. ~~
GOTO EXIT
:EXIT
seterror 0
kdy C:\WORK\%5
SETERROR 0
echo on
rem turn Gateway off
ctty con
c:
cd\RBBS